home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_18_1987_Transactor_Publishing.d64
/
fast sqr.ldr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
27 lines
100 rem a=64.1:sys49152:print a
110 rem where a is the first variable
120 rem result of sqr will be in a
130 ad=49152:ch=0
140 for i=0 to 122:read x
150 poke ad+i,x:ch=ch+x:next
160 if ch<>13691 then print"error in data statements":end
170 hi=int((ad+107)/256)
180 poke ad+59,hi:poke ad+58,ad+107-hi*256
190 rem new table address for relocated p
200 data 160, 3, 177, 45, 48, 98, 136, 177
210 data 45, 240, 92, 165, 45, 24, 105, 2
220 data 133, 170, 165, 46, 105, 0, 133, 171
230 data 160, 0, 132, 93, 132, 94, 132, 95
240 data 132, 96, 177, 170, 106, 176, 4, 162
250 data 128, 134, 93, 105, 64, 133, 92, 200
260 data 177, 170, 5, 93, 74, 74, 74, 74
270 data 170, 189, 107, 32, 133, 93, 169, 4
280 data 133, 172, 169, 92, 160, 0, 32, 162
290 data 187, 165, 170, 164, 171, 32, 15, 187
300 data 169, 92, 160, 0, 32, 103, 184, 198
310 data 97, 32, 199, 187, 198, 172, 208, 233
320 data 166, 170, 164, 171, 32, 212, 187, 96
330 data 76, 72, 178, 3, 11, 18, 25, 32
340 data 38, 44, 50, 58, 69, 79, 89, 98
350 data 107, 115, 123